home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Slideshow.dxr / 00015_go to the frame.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  1.1 KB  |  41 lines
  1. global gmaxslide, pausa, gScappaPerMemoria
  2.  
  3. on exitFrame
  4.   go(the frame)
  5.   if pausa = 0 then
  6.     frb = the freeBytes
  7.     frb2 = the freeBlock
  8.     set the text of field "memoria" to "freebytes:" && frb && "freeblock:" && frb2
  9.     if the freeBlock < (the memorysize / 2) then
  10.       tmp = the memberNum of sprite 1
  11.       gScappaPerMemoria = "normale#" & tmp
  12.       go(1, "black")
  13.       unLoad()
  14.       exit
  15.     end if
  16.     if the timer > (3 * 60) then
  17.       tmp = the memberNum of sprite 1
  18.       if tmp = gmaxslide then
  19.         tmp = 1
  20.       else
  21.         tmp = tmp + 1
  22.       end if
  23.       nome = member(tmp, "SLIDE").name
  24.       put EMPTY into field "dida"
  25.       the itemDelimiter = "#"
  26.       repeat with i = 1 to the number of lines in field "titolo#nomefile"
  27.         dati = line i of field "titolo#nomefile"
  28.         cod = item 2 of dati
  29.         if cod = nome then
  30.           dida = item 1 of dati
  31.           put dida into field "dida"
  32.           exit repeat
  33.         end if
  34.       end repeat
  35.       set the member of sprite 1 to member(nome, "slide")
  36.       unloadMember()
  37.       startTimer()
  38.     end if
  39.   end if
  40. end
  41.